﻿Public Class RolMethod
    Inherits ClaseBaseMethod

    Public Overrides Function Insertar(ByVal Rol As ClaseDosCamposObj) As ClaseDosCamposObj
        Try
            Rol = DataFactory.Rol.Insertar(Rol)

            Return Rol

        Catch ex As SqlException
            Throw ex
        Catch ex As AccesoDatosException
            Throw New ReglaNegociosMetodosException(My.Resources.ResMensajes.ErrorAlInsertarRol, ex)
        Catch ex As ReglaNegociosObjetosException
            Throw New ReglaNegociosMetodosException(My.Resources.ResMensajes.ErrorAlInsertarRol, ex)
        Catch ex As Exception
            Throw New ReglaNegociosMetodosException(String.Format(My.Resources.ResMensajes.ErrorDesconocido, ex.Message), ex)
        End Try
    End Function

    Public Overrides Sub Actualizar(ByVal Rol As ClaseDosCamposObj)
        Try
            DataFactory.Rol.Actualizar(Rol)

        Catch ex As SqlException
            Throw ex
        Catch ex As AccesoDatosException
            Throw New ReglaNegociosMetodosException(My.Resources.ResMensajes.ErrorAlActualizarRol, ex)
        Catch ex As ReglaNegociosObjetosException
            Throw New ReglaNegociosMetodosException(My.Resources.ResMensajes.ErrorAlRegistrarPcNueva, ex)
        Catch ex As Exception
            Throw New ReglaNegociosMetodosException(String.Format(My.Resources.ResMensajes.ErrorDesconocido, ex.Message), ex)
        End Try
    End Sub

    Public Overrides Sub Eliminar(ByVal Rol As ClaseDosCamposObj)
        Try
            DataFactory.Rol.Eliminar(Rol)

        Catch ex As SqlException
            Throw ex
        Catch ex As AccesoDatosException
            Throw New ReglaNegociosMetodosException(My.Resources.ResMensajes.ErrorAlEliminarRol, ex)
        Catch ex As ReglaNegociosObjetosException
            Throw New ReglaNegociosMetodosException(My.Resources.ResMensajes.ErrorAlRegistrarPcNueva, ex)
        Catch ex As Exception
            Throw New ReglaNegociosMetodosException(String.Format(My.Resources.ResMensajes.ErrorDesconocido, ex.Message), ex)
        End Try
    End Sub

    Public Overrides Function ConfigurarBuscar() As ClaseBaseMethod
        Me.DataObj = DataFactory.Rol
        Dim ObjBuscar As New BuscarObj

        ObjBuscar.ComboCampos = "Codigo"
        ObjBuscar.ComboCampos = "Descripcion"

        ObjBuscar.NombreCampos = "IdRoles"
        ObjBuscar.NombreCampos = "Descripcion"

        ObjBuscar.TiposDeCampos = ClaseEnumObj.TiposDeCampos.Numerico
        ObjBuscar.TiposDeCampos = ClaseEnumObj.TiposDeCampos.Varchar

        ObjBuscar.ComboIndiceElejido = 1

        ObjBuscar.ProcedimientoSQL = "PaConsultarRoles"

        Me.BuscarObj = ObjBuscar

        Return Me

    End Function

    Public Overrides Sub ConfigurarIdExtrangero()
        LblIdExtrangero = "Rol: "
    End Sub
End Class
